;; 循环特殊形式不像'for'循环。 循环的用法与let绑定相同。 但是，循环设置了递归点

;; 语法结构
;; loop [binding]
;; (condition
;;    (statement)
;;    (recur (binding)))

(ns loop)

(defn Example []
  (loop [x 9]
    (when (> x 1)
      (println x)
      (recur (- x 2)))))

(Example)
